Imports CapaDeDatos
Public Class nEquipamientoUnidad
    Private TblEquipamiento As CapaDeDatos.dEquipamiento = New CapaDeDatos.dEquipamiento
    Private TblUnidad As CapaDeDatos.dUnidad = New CapaDeDatos.dUnidad
    Private TblEquipamientoUnidad As CapaDeDatos.dEquipamientoUnidad = New CapaDeDatos.dEquipamientoUnidad

    Public Function Insertar(ByVal CodigoEquipamiento As Long, ByVal CodigoUnidad As Long, ByVal FechaAlta As Date, ByVal FechaBaja As Date, ByVal Observacion As String) As Boolean
        Dim dtsEquipamientoUnidad As DataSet
        dtsEquipamientoUnidad = TblEquipamientoUnidad.Buscar(CodigoEquipamiento, CodigoUnidad, New Date(), New Date(), "")
        If dtsEquipamientoUnidad.Tables(0).Rows.Count = 0 Then
            Return TblEquipamientoUnidad.Insertar(CodigoEquipamiento, CodigoUnidad, FechaAlta, FechaBaja, Observacion)

        End If
        Return False
    End Function
    Public Function Listar() As DataSet
        Return TblEquipamientoUnidad.Listar()
    End Function
    Public Function Modificar(ByVal CodigoEquipamiento As Long, ByVal CodigoUnidad As Long, ByVal FechaAlta As Date, ByVal FechaBaja As Date, ByVal Observacion As String) As Boolean
        Return TblEquipamientoUnidad.Modificar(CodigoEquipamiento, CodigoUnidad, FechaAlta, FechaBaja, Observacion)
    End Function
    Public Function Eliminar(ByVal CodigoEquipamiento As Long, ByVal CodigoUnidad As Long) As Boolean
        Return TblEquipamientoUnidad.Eliminar(CodigoEquipamiento, CodigoUnidad)
    End Function
    Public Function Buscar(ByVal CodigoEquipamiento As Long, ByVal CodigoUnidad As Long, ByVal FechaAlta As Date, ByVal FechaBaja As Date, ByVal Observacion As String) As DataSet
        Dim dtsEquipamientoUnidad As DataSet
        dtsEquipamientoUnidad = TblEquipamientoUnidad.Buscar(CodigoEquipamiento, CodigoUnidad, FechaAlta, FechaBaja, Observacion)
        dtsEquipamientoUnidad.Tables(0).Columns.Add("Equipamiento")
        dtsEquipamientoUnidad.Tables(0).Columns.Add("Unidad")
        Dim i As Integer
        For i = 0 To dtsEquipamientoUnidad.Tables(0).Rows.Count - 1
            'Try
            ''obtener id del dataset principal (resultado: string, long int)
            Dim idCodigoEquipamiento As String = dtsEquipamientoUnidad.Tables(0).Rows(i)("CodigoEquipamiento")

            ''genero data set secundario y filtro con el Id obtenido arriba
            Dim dtsEquipamiento As DataSet = TblEquipamiento.Buscar(idCodigoEquipamiento, "", New Date(), New Date(), "", 0, 0, 0)

            ''del data set secundario saco el campo descripcion asigno a variable
            Dim Nombre As String = dtsEquipamiento.Tables(0).Rows(0)("Nombre")

            ''data set principal asigno el valor a la columna adicionada
            dtsEquipamientoUnidad.Tables(0).Rows(i)("Equipamiento") = Nombre
            'Catch ex As Exception
            'End Try
            'Try
            ''obtener id del dataset principal (resultado: string, long int)
            Dim idCodigoUnidad As String = dtsEquipamientoUnidad.Tables(0).Rows(i)("CodigoUnidad")

            ''genero data set secundario y filtro con el Id obtenido arriba
            Dim dtsUnidad As DataSet = TblUnidad.Buscar(Convert.ToInt32(idCodigoUnidad), 0, "", "", 0, "", "", New Date(), New Date(), 0, 0)

            ''del data set secundario saco el campo descripcion asigno a variable
            Dim dominio As String = dtsUnidad.Tables(0).Rows(0)("Dominio")

            ''data set principal asigno el valor a la columna adicionada
            dtsEquipamientoUnidad.Tables(0).Rows(i)("Unidad") = dominio
            'Catch ex As Exception
            'End Try
        Next
        Return dtsEquipamientoUnidad
    End Function
End Class
